home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
ptv1n4.arc
/
GETSEG.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-09-13
|
435b
|
22 lines
;********** GETSEG.ASM - retrieves the current DEF SEG setting in QuickBASIC
;Copyright (c) 1990 Ethan Winer
;Declare: DECLARE FUNCTION GetSeg%()
;Usage: CurrentSeg = GetSeg%
.Model Medium, Basic
.Data
Extrn B$Seg:Word
.Code
GetSeg Proc
Mov AX,B$Seg ;load the value currently stored in B$Seg
Ret ;return to BASIC with the function output in AX
GetSeg Endp
End